home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Development Platforms / Macintosh Common Lisp Related / interfaces / PInterface Translator / PInterfaces / AppleScript.p < prev    next >
Encoding:
Text File  |  1993-09-16  |  3.7 KB  |  148 lines  |  [TEXT/CCL2]
  1. {
  2. ////////////////////////////////////////////////////////////////////////////
  3. ////
  4. // OPEN SCRIPTING ARCHITECTURE: Client Interface
  5. ////////////////////////////////////////////////////////////////////////////
  6. ////
  7. // Copyright   1992 Apple Computer, Inc. All rights reserved.
  8. // Authors: Jens Alfke, William Cook, Donn Denman, and Warren Harris
  9. ////////////////////////////////////////////////////////////////////////////
  10. ////
  11. // This interface defines what it means to be a "scripting component."
  12. // Scripting components allow "scripts" to be loaded and executed.  This
  13. // interface does not define the way in which a particular scripting
  14. // component's scripts are editing and debugged.
  15. ////////////////////////////////////////////////////////////////////////////
  16. ////
  17. }
  18.  
  19. {$IFC UNDEFINED UsingIncludes}
  20. {$SETC UsingIncludes := 0}
  21. {$ENDC}
  22.  
  23. {$IFC NOT UsingIncludes}
  24.     UNIT AppleScript;
  25.     INTERFACE
  26. {$ENDC}
  27.  
  28. {$IFC UNDEFINED UsingAppleScript}
  29. {$SETC UsingAppleScript := 1}
  30.  
  31. {$I+}
  32. {$SETC AppleScriptIncludes := UsingIncludes}
  33. {$SETC UsingIncludes := 1}
  34. {$IFC UNDEFINED UsingAppleEvents}
  35. {$I $$Shell(PInterfaces)AppleEvents.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED UsingComponents}
  38. {$I $$Shell(PInterfaces)Components.p}
  39. {$ENDC}
  40. {$SETC UsingIncludes := AppleScriptIncludes}
  41.  
  42. { Types and Constants }
  43. CONST
  44.     typeAppleScript                        = 'ascr';
  45.     kAppleScriptSubtype                    = typeAppleScript;
  46.     typeASSourceType                    = typeChar;
  47.     typeASStorage                        = typeAppleScript;
  48.     kASEventClass                        = typeAppleScript;
  49.  
  50. { Component Selectors }
  51.     kASSelectInit                        = $1001;
  52.     kASSelectSetSourceStyles            = $1002;
  53.     kASSelectGetSourceStyles            = $1003;
  54.     kASSelectStringComp                    = $1004;
  55.     { Inspecting }
  56.     kOSASelectSetVariable                = $1101;
  57.     kOSASelectGetVariable                = $1102;
  58.     kOSASelectSetHandler                = $1103;
  59.     kOSASelectGetHandler                = $1104;
  60.  
  61. { Dialect Codes }
  62.     kASEnglish                            = 129;
  63.     kASJapaneseKanji                    = 140;
  64.     kASJapaneseRomaji                    = 141;
  65.  
  66. { Initialization }
  67.  
  68. FUNCTION
  69. ASInit(scriptingSystem        : ComponentInstance;
  70.        initialStackSize        : LONGINT;
  71.        maxStackSize            : LONGINT;
  72.        initialHeapSize        : LONGINT;
  73.        maxHeapSize            : LONGINT)
  74.     : OSAError;
  75.  
  76. { Source Styles }
  77.  
  78. FUNCTION
  79. ASSetSourceStyles(scriptingSystem        : ComponentInstance;
  80.                   sourceStyles            : STHandle)
  81.     : OSAError;
  82.  
  83. FUNCTION
  84. ASGetSourceStyles(scriptingSystem            : ComponentInstance;
  85.                   VAR resultingSourceStyles    : STHandle)
  86.     : OSAError;
  87.  
  88. CONST
  89.     kASSourceStyleNormalText                = 0;
  90.     kASSourceStyleLanguageKeyword            = 1;
  91.     kASSourceStyleApplicationKeyword        = 2;
  92.     kASSourceStyleParameter                    = 3;
  93.     kASSourceStyleUserSymbol                = 4;
  94.     kASSourceStyleLiteral                    = 5;
  95.     kASSourceStyleComment                    = 6;
  96.     kASSourceStyleAlias                        = 7;
  97.     kASSourceStyleUncompiledText            = 8;
  98.     kASDefaultSourceStyleSize                = 9;
  99.  
  100. { Comparison Overloading Hook }
  101.  
  102. FUNCTION
  103. ASHandleCompEvent(scriptingSystem        : ComponentInstance;
  104.                   event                    : AppleEvent;
  105.                   reply                    : AppleEvent;
  106.                   refcon                : LONGINT;
  107.                   op                    : OSType)
  108.     : OSAError;
  109.  
  110. { Manipulating Contexts }
  111.  
  112. FUNCTION
  113. OSASetVariable(scriptingComponent    : ComponentInstance;
  114.                contextID            : OSAID;
  115.                variableName            : AEDesc;
  116.                scriptValueID        : OSAID)
  117.     : OSAError;
  118.  
  119. FUNCTION
  120. OSAGetVariable(scriptingComponent            : ComponentInstance;
  121.                contextID                    : OSAID;
  122.                variableName                    : AEDesc;
  123.                VAR resultingScriptValueID    : OSAID)
  124.     : OSAError;
  125.  
  126. FUNCTION
  127. OSASetHandler(scriptingComponent    : ComponentInstance;
  128.               contextID                : OSAID;
  129.               handlerName            : AEDesc;
  130.               compiledScriptID        : OSAID)
  131.     : OSAError;
  132.  
  133. FUNCTION
  134. OSAGetHandler(scriptingComponent            : ComponentInstance;
  135.               contextID                        : OSAID;
  136.               handlerName                    : AEDesc;
  137.               VAR resultingCompiledScriptID    : OSAID)
  138.     : OSAError;
  139.  
  140. CONST
  141.     kOSAScriptIsTypeScriptHandler    = 'hdlr';
  142.  
  143. {$ENDC}    { UsingAppleScript }
  144.  
  145. {$IFC NOT UsingIncludes}
  146.     END.
  147. {$ENDC}
  148.